home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / FRICTION.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  41 lines
  1. 0  TEXT : HOME 
  2. 10  PRINT : PRINT : PRINT 
  3. 12  PRINT "Now let's look at another force that    affects inertia."
  4. 14  PRINT : PRINT : PRINT : PRINT : PRINT 
  5. 15  PRINT : PRINT : PRINT 
  6. 16  FOR I = 0 TO 2500: NEXT I
  7. 100  HGR : HCOLOR= 3: HOME 
  8. 110  VTAB (21): PRINT "Why does this apple, like most moving   objects, eventually stop?"
  9. 150 X% = 70:Y% = 70
  10. 152  FOR I = 70 TO 200
  11. 154 X% = I: HCOLOR= 3: GOSUB 1000
  12. 156 X% = I: HCOLOR= 0: GOSUB 1000
  13. 158 I = I +5: NEXT I
  14. 160 X% = 200: HCOLOR= 3: GOSUB 1000
  15. 170  FOR I = 0 TO 1000: NEXT I
  16. 180  CALL 62450: HOME 
  17. 182  PRINT  CHR$(4);"run fricdef"
  18. 998  END 
  19. 1000  HPLOT X% +3,Y% TO X% +4,Y%
  20. 1002  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  21. 1004  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  22. 1006  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  23. 1008  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  24. 1010  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  25. 1012  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  26. 1014  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  27. 1016  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  28. 1018  HPLOT X%,Y% +6 TO X% +17,Y% +6
  29. 1020  HPLOT X%,Y% +7 TO X% +17,Y% +6
  30. 1022  HPLOT X%,Y% +8 TO X% +17,Y% +8
  31. 1024  HPLOT X%,Y% +9 TO X% +17,Y% +9
  32. 1026  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  33. 1028  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  34. 1030  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  35. 1032  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  36. 1034  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  37. 1036  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  38. 1038  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  39. 1040  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  40. 1042  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  41. 1080  RETURN